home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / lstops.dia.ref < prev    next >
Text File  |  1999-09-16  |  3KB  |  97 lines
  1.  
  2. mode(5)
  3. //-----------------------
  4. //-- extractions tests --
  5. //-----------------------
  6. l=list(1,2,-4);
  7. if l(1)<>1 then bugmes();quit;end
  8. if l(3)<>-4 then bugmes();quit;end
  9. [x1,x2]=l([1 3]);
  10. if x1<>l(1)|x2<>l(3) then bugmes();quit;end
  11. [x2,x1]=l([3 1]);
  12. if x1<>l(1)|x2<>l(3) then bugmes();quit;end
  13. [x1,x2]=l([1;3]);
  14. if x1<>l(1)|x2<>l(3) then bugmes();quit;end
  15. [x2,x1]=l([3;1]);
  16. if x1<>l(1)|x2<>l(3) then bugmes();quit;end
  17. [x1,x2,x3]=l(:);
  18. if x1<>l(1)|x2<>l(2)|x3<>l(3) then bugmes();quit;end
  19. //with full tlists
  20. l=tlist(['t','a','b','c'],1,-2,5);
  21. if l(2)<>1 then bugmes();quit;end
  22. if l(4)<>5 then bugmes();quit;end
  23. [x1,x2]=l([2 4]);
  24. if x1<>l(2)|x2<>l(4) then bugmes();quit;end
  25. [x2,x1]=l([4 2]);
  26. if x1<>l(2)|x2<>l(4) then bugmes();quit;end
  27. if l('a')<>1 then bugmes();quit;end
  28. if l('c')<>5 then bugmes();quit;end
  29. [x1,x2]=l(['a' 'c']);
  30. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  31. [x2,x1]=l(['c' 'a']);
  32. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  33. [x1,x2]=l(['a';'c']);
  34. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  35. [x2,x1]=l(['c';'a']);
  36. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  37. //with partial tlists (no elements formal names)
  38. l=tlist('t',1,-2,5);
  39. deff('[f1,f2,f3,f4,f5,f6,f7]=%te(i,j,f)',[
  40.   'nams=[''a'',''b'',''c''];'
  41.   'for k=1:prod(size(i))';
  42.   '   kf=find(i(k)==nams);';
  43.   '   if kf==[] then error(21),end;'
  44.   '   execstr(''f''+string(k)+''=j(kf+1)'');'
  45.   '   end;'])
  46. if l(2)<>1 then bugmes();quit;end
  47. if l(4)<>5 then bugmes();quit;end
  48. [x1,x2]=l([2 4]);
  49. if x1<>l(2)|x2<>l(4) then bugmes();quit;end
  50. [x2,x1]=l([4 2]);
  51. if x1<>l(2)|x2<>l(4) then bugmes();quit;end
  52. if l('a')<>1 then bugmes();quit;end
  53. if l('c')<>5 then bugmes();quit;end
  54. [x1,x2]=l(['a' 'c']);
  55. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  56. [x2,x1]=l(['c' 'a']);
  57. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  58. [x1,x2]=l(['a';'c']);
  59. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  60. [x2,x1]=l(['c';'a']);
  61. if x1<>l('a')|x2<>l('c') then bugmes();quit;end
  62. //---------------------
  63. //-- insertion tests --
  64. //---------------------
  65. l=list(2,'a',-1);
  66. l(1)=[1 2];
  67. if l<>list([1 2],'a',-1) then bugmes();quit;end
  68. l(1)=33;
  69. if l<>list(33,'a',-1) then bugmes();quit;end
  70. l(1)=33;
  71. if l<>list(33,'a',-1) then bugmes();quit;end
  72. l(0)=1.25;
  73. if l<>list(1.25,33,'a',-1) then bugmes();quit;end
  74. l(5)=[1 2 3];
  75. if l<>list(1.25,33,'a',-1,[1 2 3]) then bugmes();quit;end
  76. l(3)=null();
  77. if l<>list(1.25,33,-1,[1 2 3]) then bugmes();quit;end
  78. l(3)=null();
  79. if l<>list(1.25,33,[1 2 3]) then bugmes();quit;end
  80. l(4)=null();
  81. if l<>list(1.25,33,[1 2 3]) then bugmes();quit;end
  82. l(0)=null();
  83. if l<>list(1.25,33,[1 2 3]) then bugmes();quit;end
  84. l=tlist('t',2,'a',-1);
  85. l(2)=[1 2 3];
  86. if %lnl(l,tlist('t',[1 2 3],'a',-1)) then bugmes();quit;end
  87. l(2)=33;
  88. if %lnl(l,tlist('t',33,'a',-1)) then bugmes();quit;end
  89. l(2)=33;
  90. if %lnl(l,tlist('t',33,'a',-1)) then bugmes();quit;end
  91. l(4)=[1 2];
  92. if %lnl(l,tlist('t',33,'a',[1,2])) then bugmes();quit;end
  93. l(2)=null();
  94. if %lnl(l,tlist('t','a',[1,2])) then bugmes();quit;end
  95. l(1)=null();
  96. if %lnl(l,list('a',[1,2])) then bugmes();quit;end
  97.